5 PRINT"[147]"
10 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
20 POKE54277,8:POKE54278,255:POKE54276,23
30 FORZ=1TO2:REM NO. OF CYCLES
35 F1=10:FORY=1TO6:REM Y CONTROLS LENGTH OF FIRST PART OF SOUND
40 F2=10:POKE54273,F1
50 FORX=1TO4:POKE54287,F2
60 F2=F2*1.02:NEXTX:F1=F1*1.2:NEXTY:REM END OF FIRST PART OF SOUND
70 FORW=1TO8:REM CONTROLS LENGTH OF SECOND PART
80 F2=20:POKE54273,F1
90 FORV=1TO3:REM V CONTROLS PITCH RANGE OF SECOND PART. TRY DIFFERENT V'S!
100 POKE54287,F2:F2=F2*1.2:NEXTV:F1=F1/1.2:NEXTW:NEXTZ
110 REM F1, F2, AND ALL MULTIPLIERS CHANGE HARMONIC CONTENT OF BOTH SOUND PARTS
120 POKE54278,15:REM THIS SHUTS IT UP
130 LIST10-120